home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1995 #5 & #6
/
Amiga Plus CD - 1995 - No. 5 and 6.iso
/
pd
/
serien
/
purity
/
nr.40
/
xsc
/
xsc.p
< prev
next >
Wrap
Text File
|
1994-12-10
|
970b
|
69 lines
UNIT xsc;
INTERFACE
{$incl 'MathIEEEDoubTrans.lib'}
FUNCTION cosh(r:REAL):REAL;
FUNCTION sinh(r:REAL):REAL;
FUNCTION tanh(r:REAL):REAL;
FUNCTION tan(r:REAL):REAL;
FUNCTION arctan(r:REAL):REAL;
FUNCTION arccos(r:REAL):REAL;
FUNCTION arcsin(r:REAL):REAL;
PROCEDURE closedoubtranslib;
IMPLEMENTATION
VAR puffer:REAL;
FUNCTION Cosh;
BEGIN
puffer:=ieeedpcosh(r);
cosh:=puffer;
END;
FUNCTION sinh;
BEGIN
puffer:=ieeedpsinh(r);
sinh:=puffer;
END;
FUNCTION tanh;
BEGIN
puffer:=ieeedptanh(r);
tanh:=puffer;
END;
FUNCTION tan;
BEGIN
puffer:=ieeedptan(r);
tan:=puffer;
END;
FUNCTION arccos;
BEGIN
puffer:=ieeedpacos(r);
arccos:=puffer;
END;
FUNCTION arcsin;
BEGIN
puffer:=ieeedpasin(r);
arcsin:=puffer;
END;
FUNCTION arctan;
BEGIN
puffer:=ieeedpatan(r);
arctan:=puffer;
END;
PROCEDURE closedoubtranslib;
BEGIN
closelib(mathIEEEDoubtransbase);
END;
BEGIN
openlib(mathIEEEDoubtransbase,'mathieeedoubtrans.library',0);
END.